0 V=53248:POKEV+16,.:POKE54296,15 1 J=56320:POKEV+28,1:POKEV+37,1:POKEV+39,9:PO=-1 2 GOSUB2000 3 POKEV+38,22:POKE2041,192:POKE2042,193:POKEV+27,4:POKEV+23,1:POKEV+29,1 4 POKEV+21,4+2+1:POKEV+40,.:POKEV+41,1:DEFFN JO(O)=15-(PEEK(56320)AND15) 5 DEFFNFB(O)=PEEK(56320)AND16 10 PRINT"[147]"TAB(12)"[153][169][155] [153][223]":PRINTTAB(11)"[169] [223]" 11 PRINTTAB(10)"[169] [223]":FORT=1TO4 12 PRINT" ";:NEXT 13 PRINT"[153] [151] [153] [151] [153] [151] [153] [151] [153] [151] [153] "; 14 PRINT" [151] 1 [153] [151] 2 [153] [151] 3 [153] [151] 4 [153] [151] 5 [153] "; 15 PRINT" "; 16 PRINT" ":PRINT"[145][145]HI SCORE"PEEK(2) 17 FORT=1984TO2023:POKET,160:POKET+54272,13:NEXT 98 IFDI=.THEN400 99 GOTO300 100 JV=FNJO(.):IFWBTHEN111 101 IFJV=1ORJV=5ORJV=9THENY2=Y2-S 102 IFJV=2ORJV=6ORJV=10THENY2=Y2+S 103 IFJV>3ANDJV<7THENX2=X2-S 104 IFJV>7ANDJV<11THENX2=X2+S 105 IFX2>255THENPOKEV+16,PEEK(V+16)+2:X2=X2-255 106 IFX2<.AND(PEEK(V+16)AND2)=2THENX2=255--X2:POKEV+16,PEEK(V+16)-2 107 IFY2<.THENY2=. 108 IFY2>255THENY2=255 109 IFX2<.THENX2=. 110 IFX2>255THENX2=255 111 KL=PEEK(53278):POKEV+2,X2:POKEV+3,Y2:IFFNFB(.)=.ANDWB=.THEN800 200 H=H+1:X3=X3+D1:Y3=Y3+D2:IFX3>255THENX3=.:POKEV+16,PEEK(V+16)+4 210 IFY3<.ORY3>255THEN300 211 IFH>40ANDWB=1THEN300 212 IFX3<.THEN300 299 POKEV+4,X3:POKEV+5,Y3:POKE54276,128:GOTO100 300 WB=.:H=.:PO=PO+1:IF(PEEK(V+16)AND2)=2THENPOKEV+16,PEEK(V+16)-2 302 ONINT((PO+5)/5)GOSUB500,510,520,530,540,540 303 PRINT"SCORE=";SC"[157]/25","ROUND"PO 397 IFPO=25THEN600 398 JV=FNJO(.):FB=FNFB(.):IFJV=.ANDFB=16THEN398 399 GOTO100 400 PRINT"[144] >>>>> TRAP SHOOT <<<<< " 401 INPUT"ENTER BLUE ROCK SPEED (1-15)";DI:INPUT"ENTER SIGHT SPEED (1-40)";S 402 PRINT"SEE ONE (FB=Y/UP=N)" 403 FB=FNFB(.):JV=FNJO(.):IFFB=.THEN406 404 IFJVTHEN410 405 GOTO403 406 GOSUB590:X3=170:Y3=167:POKE2042,193:POKEV+21,4:FORT=1TO10 407 H=H+1:X3=X3+D1:Y3=Y3+D2:IFX3>255THENX3=.:POKEV+16,PEEK(V+16)+4 408 IFY3<.THENY3=. 409 POKEV+4,X3:POKEV+5,Y3:FORY=1TO75:NEXTY,T:POKEV+21,7 410 PRINT"CHANGE (FB=Y/UP=N) 411 FB[178][165]FB(.):JV[178][165]JO(.):[139]FB[178]16[175]JV[178].[167]411 412 [153]"";:[129]T[178]1[164]10:[153]" ";:[130] 413 [139]S[179]1[176]S[177]40[167]400 414 [139]DI[179]1[176]DI[177]15[167]400 498 [139]FB[178].[167]400 499 X3[178].:Y3[178].:[137]10 500 [143] POST >1<:P[207]V+16,. 501 X[178]X1:Y[178]Y1:[151]2040,191:X1[178]33:Y1[178]192:X2[178]126:Y2[178]157:X3[178]170:Y3[178]167 502 [151]V[170]1,Y1:[151]V[170]2,X2:[151]V[170]3,Y2:[151]V[170]4,X3:[151]V[170]5,Y3:[151]V,X1:[137]590 510 [143] POST >2< 511 X[178]X1:Y[178]Y1:[151]2040,191:X1[178]97:Y1[178]192:X2[178]149:Y2[178]157:X3[178]170:Y3[178]167:[141]900 512 [151]V[170]1,Y1:[151]V[170]2,X2:[151]V[170]3,Y2:[151]V[170]4,X3:[151]V[170]5,Y3:[137]590 520 [143] POST >3< 521 X[178]X1:Y[178]Y1:[151]2040,191:X1[178]161:Y1[178]192:X2[178]169:Y2[178]157:X3[178]170:Y3[178]167:[141]900 522 [151]V[170]1,Y1:[151]V[170]2,X2:[151]V[170]3,Y2:[151]V[170]4,X3:[151]V[170]5,Y3:[137]590 530 [143] POST >4< 531 X[178]X1:Y[178]Y1:[151]2040,190:X1[178]220:Y1[178]192:X2[178]189:Y2[178]157:X3[178]170:Y3[178]167:[141]900 532 [151]V[170]1,Y1:[151]V[170]2,X2:[151]V[170]3,Y2:[151]V[170]4,X3:[151]V[170]5,Y3:[137]590 540 [143] POST >5< 541 X[178]X1:Y[178]Y1:[151]2040,190:X1[178]28:Y1[178]192:X2[178]216:Y2[178]157:X3[178]170:Y3[178]167:[141]900 542 [151]V[170]1,Y1:[151]V[170]2,X2:[151]V[170]3,Y2:[151]V[170]4,X3:[151]V[170]5,Y3 590 [151]2042,193:D1[178][181]([187](.)[172]5)[170]DI:D[178][181]([187](.)[172]100)[170]1:[139]D[177]50[167]D1[178][171]D1 591 D2[178][181]([187](.)[172]5)[170]DI:D2[178][171]D2:[139]([194](V[170]16)[175]4)[178]4[167][151]V[170]16,[194](V[170]16)[171]4 599 [142] 600 [153]:[153]""[163]15)"GAME OVER":[153][163]15)"FB=START":[153][163]15)"UP=E N D" 601 [139]SC[177][194](2)[167][151]2,SC:[153]"HI SCORE"SC 602 JV[178][165]JO(.):FB[178][165]FB(.):[139]FB[178]0[167][151]V[170]21,0:[138] 603 [139]JV[167][128] 604 [137]601 800 WB[178]1:[143] SHOOT 801 [151]54273,2:[151]54272,255:[151]54277,.:[151]54278,252:[151]54276,129 810 [139]KL[179][177]6[167]200 811 [151]2042,194:D2[178][171]D2:SC[178]SC[170]1 890 [137]200 900 [139]X[178]X1[167][142] 901 [151]V[170]16,.:[139]X[179]X1[167][129]T[178]X[164]X1:[151]V,T:[129]Y[178]1[164]10:[130]Y,T 902 [139]X[177]X1[167]910 903 [142] 910 U[178].:[129]T[178]X[164]X1[170]255:[139]T[177]255[167][151]V[170]16,[194](V[170]16)[176]1:U[178]1 911 [139]U[178]1[167][151]V,T[171]256:[137]913 912 [151]V,T 913 [129]Y[178]1[164]5:[130]Y,T:[142] 1000 [129]T[178]12160[164]12479:[135]A:[151]T,A:[130] 1001 [143] SPRITE 0 1002 [131]0,0,0,0,63,0,0,31,0,0,23,.,170,135,.,10,189,80,4,124,.,1,60,.,.,60,. 1003 [131].,60,.,.,60,.,.,255,.,.,195,.,.,195,.,.,195,.,.,195,.,3,.,192,3,.,192 1004 [131]3,.,192,3,.,192,3,.,192,. 1010 [143] SPRITE 1 1011 [131].,.,.,3,240,.,3,208,.,3,80,.,3,66,170,21,250,160,.,244,64,.,241,. 1012 [131].,240,.,.,240,.,.,240,.,3,252,.,3,12,.,3,12,.,3,12,.,3,12,.,12,3,.,12,3,. 1013 [131]12,3,.,12,3,.,12,3,.,. 1020 [143] SPRITE 2 1021 [131].,.,.,1,57,.,3,57,128,7,255,192,15,255,224,31,255,240,63,255,248 1022 [131]127,255,252,255,255,254,255,255,254,255,255,254,255,255,254,255,255,254 1023 [131]255,255,254,127,255,252,63,255,248,31,255,240,15,255,224,7,255,192 1024 [131]3,255,128,1,255,.,. 1030 [143] SPRITE 3 1031 [131],,,,,,,,,,,,,,,,,,,,,,,,3,255,128,7,255,192,15,255,224 1032 [131],,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 1040 [143] SPRITE 4 1041 [131].,.,.,.,.,6,.,2,.,2,.,.,.,32,12,.,33,.,.,.,.,36,96,64,.,.,.,4,.,32,4,4,. 1042 [131]3,104,1,32,16,49,.,.,.,.,16,.,6,16,.,6,80,.,.,1,128,3,.,.,.,.,16,128,.,., 1999 [142] 2000 N$[178]" BY LEE FRALEY ":[153]"LOAD"[163]3)"STEP WAITSTEP" 2001 [153][163]5)"STEPWAITSTEP" 2002 [153][163]4)"STEPWAITSTEP STEP WAITSTEPSTEP WAITSTEPSTEP WAITSTEP" 2003 [153][163]3)"STEPWAITSTEP STEPWAITSTEP STEPWAITSTEPSTEPWAITSTEPSTEPWAITSTEP" 2004 [153][163]12)"STEPWAITSTEP":[153] 2005 [153][163]15)"STEP WAITSTEP" 2006 [153][163]14)"STEPWAITSTEP STEPWAITSTEP" 2007 [153][163]14)"(null) WAITSTEPSTEPWAITSTEP" 2008 [153][163]17)"STEPWAITSTEPSTEP WAITSTEPSTEP WAITSTEPSTEP WAITSTEPSTEP WAITSTEP" 2009 [153][163]12)"STEP WAITSTEPSTEPWAITSTEPSTEPWAITSTEPSTEP WAITSTEPSTEP WAITSTEP STEPWAITSTEP":[153] 2010 [141]1000:[153]"STOP"[166]5)"." 2011 [153]" " 2012 [153]" " 2013 [129]T[178]1[164]500:[130] 2014 [151]54273,2:[151]54272,255:[151]54277,.:[151]54278,252:[151]54276,129 2015 [153]"ONONCONTUSRUSR"N$ 2016 [129]T[178]1[164]100:[130]:[151]54276,128:[129]T[178]1[164]2000:[130]:[142]